home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #3 / Commodore_Disk_User_Vol.1_3_1988_-.d64 / dice graph (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  635b  |  27 lines
  1. 10 deffna(x)=int(peek(56324)*x/256+1)
  2. 20 dimc(12)
  3. 100 print"[147]";:poke53280,0:poke53281,0
  4. 110 d$=""
  5. 120 b$="[158]   [145][157][157][157][169]  [146][158]"
  6. 130 t=2
  7. 500 zz=1
  8. 501 c(zz)=0:zz=zz+1:ifzz<13then501
  9. 502 printleft$(d$,20)
  10. 503 print"    [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  11. 504 print"   [206]                                 [206][165]
  12. 505 [153]"  thentab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(fnfn
  13. 506 print"  [167]                                  [165][165]
  14. 510 [153][200](d$,23)"
  15. 511 x=2
  16. 520 printtab(x*3-t-1)x"[145]":x=x+1:ifx<13then520
  17. 600 r%=fna(6)+fna(6):ifr>12then600
  18. 601 r=r%
  19. 610 c(r)=c(r)+1
  20. 620 printleft$(d$,23-c(r))tab(r*3-t)b$;
  21. 625 ifc(r)=18then700
  22. 630 goto600
  23. 700 print"[129]        "r"occurred most often.
  24. 750 [129]zz[178]1[164]2000:[130]
  25. 760 [161]a$:[139]a$[178]""[167][128]
  26. 800 [137]100
  27.